1500 DATA1500,DO,NOT,ENTER,DATA,ON,THIS,LINE
1502 PRINT"[147]":POKE53281,0:POKE53280,11
1504 INPUT"WHAT IS YOUR FIRST NAME";N$:GOTO 1508
1506 INPUT"[147]SORRY, I FORGOT YOUR NAME";N$
1508 FORL=1TO1000:NEXT
1510 PRINT"[147]":POKE53281,0:POKE53280,11
1512 PRINT"[158]ADDRESS BOOK <C> 1984 PLANET EARTH LTD.":PRINT:T=0
1514 PRINT"[L]  LIST ALL ENTRIES"
1516 PRINT
1518 PRINT"[N]  LAST NAME"
1520 PRINTSPC(25);"          [146]"
1522 PRINT"[F]  FIRST NAME"SPC(10);" ADDRESS  [146]"
1524 PRINTSPC(25);"     BOOK [146]"
1526 PRINT"[A]  ADDRESS"SPC(12);"[207]  [215]    [215]  [146][208]"
1528 PRINTSPC(23);"[152] [146][165]  [152] [146]     [146]  [167][152] [146]"
1530 PRINT"[C]  CITY"SPC(15);"[204]  [215]    [215]  [146][186]"
1532 PRINTSPC(24);"[149] BY        [149] [146]"
1534 PRINT"[S]  STATE"SPC(14);"[149]  B.BEHLING[149] [146]"
1536 PRINTSPC(24);"[149] [192][192][192][192][192][192][192][192][192][192][149] [146]"
1538 PRINT"[Z]  ZIP CODE"SPC(11);"[149]            [146]"
1540 PRINTSPC(24);"[149]            [146]"
1542 PRINT"[P]  PHONE NUMBER"SPC(7);" [152][162][146]        [162][146]"
1544 PRINT
1546 PRINT"[X]  EXIT PROGRAM"
1548 PRINT
1550 PRINT"[E]  ENTER DATA"
1552 PRINT
1554 PRINT"[153]CHOICE?"
1556 GETK$:IFK$=""THEN 1556
1558 IFK$="L"THENGOSUB 1580
1560 IFK$="N"THENGOSUB 1598
1562 IFK$="F"THENGOSUB 1706
1564 IFK$="A"THENGOSUB 1746
1566 IFK$="C"THENGOSUB 1638
1568 IFK$="S"THENGOSUB 1786
1570 IFK$="X"THENGOSUB 1678
1572 IFK$="E"THENGOTO 1978
1574 IFK$="Z"THENGOSUB 1826
1576 IFK$="P"THENGOSUB 1866
1578 GOTO 1510
1580 PRINT"[147]"
1582 GOSUB 1966
1584 IFA=1500THENGOTO 1590
1586 GOSUB 1906
1588 GOTO 1580
1590 PRINT"[147]"SPC(12);"[158] END OF FILES. [146]"
1592 FORL=1TO1000:NEXT
1594 RESTORE
1596 RETURN
1598 INPUT"[147]WHAT IS THE LAST NAME";J$:Z=LEN(J$)
1600 PRINT"[147]"SPC(20-INT((LEN(N$)+11)/2));"THANK YOU ";N$;"."
1602 FORL=1TO1000:NEXT:GOTO 1606
1604 PRINTSPC(7);"SEARCHING, PLEASE STANDBY."
1606 GOSUB 1966
1608 IFA=1500THENGOTO 1614
1610 IFJ$=LEFT$(B$,Z)THENT=1:GOSUB 1906
1612 PRINT"[147]":GOTO 1604
1614 IFT=1THENGOTO 1630
1616 PRINT"[147]"SPC(20-INT((LEN(J$)+14+LEN(N$))/2));J$;" NOT ON FILE "N$;"."
1618 PRINTSPC(8);"[158][169]                       [223]"
1620 PRINTSPC(8);" [146]HIT RETURN TO CONTINUE.[158] "
1622 PRINTSPC(8);"[146][223]                       [146][169]"
1624 GETK$:IFK$=""THENGOTO 1624
1626 RESTORE
1628 RETURN
1630 PRINT"[147]"SPC(12);"[158] END OF FILES. [146]"
1632 FORL=1TO1000:NEXT
1634 RESTORE
1636 RETURN
1638 INPUT"[147]WHAT CITY DO YOU WANT";J$:Z=LEN(J$)
1640 PRINT"[147]"SPC(20-INT((LEN(N$)+11)/2));"THANK YOU ";N$;"."
1642 FORL=1TO1000:NEXT:GOTO 1646
1644 PRINTSPC(7);"SEARCHING PLEASE STANDBY."
1646 GOSUB 1966
1648 IFA=1500THENGOTO 1654
1650 IFJ$=LEFT$(E$,Z)THENT=1:GOSUB 1906
1652 PRINT"[147]":GOTO 1644
1654 IFT=1THENGOTO 1670
1656 PRINT"[147]"SPC(20-INT((LEN(J$)+14+LEN(N$))/2));J$;" NOT ON FILE "N$;"."
1658 PRINTSPC(8);"[169]                       [223]"
1660 PRINTSPC(8);" [146]HIT RETURN TO CONTINUE. "
1662 PRINTSPC(8);"[146][223]                       [146][169]"
1664 GETK$:IFK$=""THENGOTO 1664
1666 RESTORE
1668 RETURN
1670 PRINT"[147]"SPC(12);"[158] END OF FILES. [146]"
1672 FORL=1TO1000:NEXT
1674 RESTORE
1676 RETURN
1678 PRINT"[147]"SPC(5);"HIT [X] TO EXIT WITHOUT SAVING."
1680 PRINT""SPC(8);"HIT [A] TO ABORT TO MENU."
1682 PRINT""SPC(8);"HIT [S] TO SAVE LISTINGS."
1684 GETK$:IFK$=""THENGOTO 1684
1686 IFK$="X"THENEND
1688 IFK$="A"GOTO 1510
1690 IFK$<>"S"THEN 1678
1692 PRINT""SPC(11);"TAPE OR DISK [T/D]"
1694 GETTD$:ON-(TD$="")GOTO 1694:IFTD$="D"THEN 1702
1696 PRINT""SPC(5);"[158] REWIND TAPE BEFORE SAVING!!! [146]"
1698 PRINT""SPC(9);"HIT ANY KEY WHEN READY"
1700 GETK$:ON-(K$="")GOTO 1700:SAVE"ADDRESS BOOK":END
1702 PRINT""SPC(16);" SAVING [146]":SAVE"@0:ADDRESS BOOK",8
1704 OPEN15,8,15,"V":CLOSE15:END
1706 INPUT"[147]WHAT IS THE FIRST NAME";J$:Z=LEN(J$)
1708 PRINT"[147]"SPC(20-INT((LEN(N$)+11)/2));"THANK YOU ";N$;"."
1710 FORL=1TO1000:NEXT:GOTO 1714
1712 PRINTSPC(7);"SEARCHING, PLEASE STANDBY."
1714 GOSUB 1966
1716 IFA=1500THENGOTO 1722
1718 IFJ$=LEFT$(C$,Z)THENT=1:GOSUB 1906
1720 PRINT"[147]":GOTO 1712
1722 IFT=1THENGOTO 1738
1724 PRINT"[147]"SPC(20-INT((LEN(J$)+14+LEN(N$))/2));J$;" NOT ON FILE "N$;"."
1726 PRINTSPC(8);"[159][169]                       [223]"
1728 PRINTSPC(8);" [146]HIT RETURN TO CONTINUE.[159] "
1730 PRINTSPC(8);"[146][223]                       [146][169]"
1732 GETK$:IFK$=""THENGOTO 1732
1734 RESTORE
1736 RETURN
1738 PRINT"[147]"SPC(12);"[158] END OF FILES. [146]"
1740 FORL=1TO1000:NEXT
1742 RESTORE
1744 RETURN
1746 INPUT"[147]WHAT IS THE ADDRESS";J$:Z=LEN(J$)
1748 PRINT"[147]"SPC(20-INT((LEN(N$)+11)/2));"THANK YOU ";N$;"."
1750 FORL=1TO1000:NEXT:GOTO 1754
1752 PRINTSPC(7);"SEARCHING, PLEASE STANDBY."
1754 GOSUB 1966
1756 IFA=1500THENGOTO 1762
1758 IFJ$=LEFT$(D$,Z)THENT=1:GOSUB 1906
1760 PRINT"[147]":GOTO 1752
1762 IFT=1THENGOTO 1778
1764 PRINT"[147]"SPC(20-INT((LEN(J$)+14+LEN(N$))/2));J$;" NOT ON FILE "N$;"."
1766 PRINTSPC(8);"[156][169]                       [223]"
1768 PRINTSPC(8);" [146]HIT RETURN TO CONTINUE.[156] "
1770 PRINTSPC(8);"[146][223]                       [146][169]"
1772 GETK$:IFK$=""THENGOTO 1772
1774 RESTORE
1776 RETURN
1778 PRINT"[147]"SPC(12);"[158] END OF FILES. [146]"
1780 FORL=1TO1000:NEXT
1782 RESTORE
1784 RETURN
1786 INPUT"[147]WHAT STATE DO YOU WANT";J$:Z=LEN(J$)
1788 PRINT"[147]"SPC(20-INT((LEN(N$)+11)/2));"THANK YOU ";N$;"."
1790 FORL=1TO1000:NEXT:GOTO 1794
1792 PRINTSPC(7);"SEARCHING, PLEASE STANDBY."
1794 GOSUB 1966
1796 IFA=1500THENGOTO 1802
1798 IFJ$=LEFT$(F$,Z)THENT=1:GOSUB 1906
1800 PRINT"[147]":GOTO 1792
1802 IFT=1THENGOTO 1818
1804 PRINT"[147]"SPC(20-INT((LEN(J$)+14+LEN(N$))/2));J$;" NOT ON FILE "N$;"."
1806 PRINTSPC(8);"[169]                       [223]"
1808 PRINTSPC(8);" [146]HIT RETURN TO CONTINUE. "
1810 PRINTSPC(8);"[146][223]                       [146][169]"
1812 GETK$:IFK$=""THENGOTO 1812
1814 RESTORE
1816 RETURN
1818 PRINT"[147]"SPC(12);"[158] END OF FILES. [146]
1820 [129]L[178]1[164]1000:[130]
1822 [140]
1824 [142]
1826 [133]"LOADWHAT IS THE ZIP CODE";J$:Z[178][195](J$)
1828 [153]"LOAD"[166]20[171][181](([195](N$)[170]11)[173]2));"THANK YOU ";N$;"."
1830 [129]L[178]1[164]1000:[130]:[137] 1834
1832 [153][166]7);"SEARCHING, PLEASE STANDBY."
1834 [141] 1966
1836 [139]A[178]1500[167][137] 1842
1838 [139]J$[178][200](G$,Z)[167]T[178]1:[141] 1906
1840 [153]"LOAD":[137] 1832
1842 [139]T[178]1[167][137] 1858
1844 [153]"LOAD"[166]20[171][181](([195](J$)[170]14[170][195](N$))[173]2));J$;" NOT ON FILE "N$;"."
1846 [153][166]8);"STEP                       (null)"
1848 [153][166]8);" WAITHIT RETURN TO CONTINUE. "
1850 [153][166]8);"WAIT(null)                       WAITSTEP"
1852 [161]K$:[139]K$[178]""[167][137] 1852
1854 [140]
1856 [142]
1858 [153]"LOAD"[166]12);"SYS END OF FILES. WAIT"
1860 [129]L[178]1[164]1000:[130]
1862 [140]
1864 [142]
1866 [133]"LOADWHAT PHONE NUMBER";J$:Z[178][195](J$)
1868 [153]"LOAD"[166]20[171][181](([195](N$)[170]11)[173]2));"THANK YOU ";N$;"."
1870 [129]L[178]1[164]1000:[130]:[137] 1874
1872 [153][166]7);"SEARCHING, PLEASE STANDBY."
1874 [141] 1966
1876 [139]A[178]1500[167][137] 1882
1878 [139]J$[178][200](H$,Z)[167]T[178]1:[141] 1906
1880 [153]"LOAD":[137] 1872
1882 [139]T[178]1[167][137] 1898
1884 [153]"LOAD"[166]20[171][181](([195](J$)[170]14[170][195](N$))[173]2));J$;" NOT ON FILE "N$;"."
1886 [153][166]8);"FORSTEP                       (null)"
1888 [153][166]8);" WAITHIT RETURN TO CONTINUE.FOR "
1890 [153][166]8);"WAIT(null)                       WAITSTEP"
1892 [161]K$:[139]K$[178]""[167][137] 1892
1894 [140]
1896 [142]
1898 [153]"LOAD"[166]12);"SYS END OF FILES. WAIT"
1900 [129]L[178]1[164]1000:[130]
1902 [140]
1904 [142]
1906 [153]"LOADCONT FILE #   >";A
1908 [153]"OPEN (null)TANLENTANTANTANTANTANTANRIGHT$"
1910 [153]"OPEN (null)NAME    OPEN(null)>";B$;", ";C$
1912 [153]"OPEN (null)        (null)"
1914 [153]"OPEN (null)ADDRESS OPEN(null)>";D$
1916 [153]"OPEN (null)        (null)"
1918 [153]"OPEN (null)CITY    OPEN(null)>";E$
1920 [153]"OPEN (null)        (null)"
1922 [153]"OPEN (null)STATE   OPEN(null)>";F$
1924 [153]"OPEN (null)        (null)"
1926 [153]"OPEN (null)ZIP CODEOPEN(null)>";G$
1928 [153]"OPEN (null)        (null)"
1930 [153]"OPEN (null)PHONE # OPEN(null)>";H$
1932 [153]"OPEN (null)        (null)
1934 PRINT"[158] [171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
1936 PRINT"[158] [221]HIT [X] TO ABORT TO MENU[158][221]"
1938 PRINT"[158] [221]                        [221]"
1940 PRINT" [221]HIT [E] TO EDIT FILE[158]    [221]"
1942 PRINT" [221]                        [221]"
1944 PRINT" [221]HIT RETURN TO CONTINUE  [158][221]"
1946 PRINT" [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
1948 GETK$:IFK$=""THENGOTO 1948
1950 IFK$="X"THENRESTORE
1952 IFK$="X"THENGOTO 1510
1954 IFK$="E"THENED=1:GOTO 1958
1956 RETURN
1958 GOSUB 2002
1960 IFED=2THENPRINT"LIST";A;"-";A+1:GOTO 1964
1962 PRINT"LIST"A
1964 PRINT"[145][145][145]";:POKE198,4:FORI=631TO636:POKEI,13:NEXT:END
1966 READA
1968 IFA=1500THENRESTORE
1970 IFA=1500THENRETURN
1972 X=A
1974 READB$,C$,D$,E$,F$,G$,H$
1976 RETURN
1978 INPUT"[147]LAST NAME";I1$
1980 INPUT"[147]FIRST NAME";I2$
1982 INPUT"[147]ADDRESS";I3$
1984 INPUT"[147]CITY";I4$
1986 INPUT"[147]STATE";I5$
1988 INPUT"[147]ZIP CODE";I6$
1990 INPUT"[147]PHONE NUMBER";I7$
1992 PRINT"[147]";SPC(10);"FILING. PLEASE WAIT."
1994 GOSUB 1966
1996 IFX>=1500THENGOTO 2022
1998 IFA=1500THENGOTO 2002
2000 GOTO 1994
2002 LD=LEN(B$)+LEN(C$)+LEN(D$)+LEN(E$)+LEN(F$)+LEN(G$)+LEN(H$)+LEN(STR$(A))
2004 IFLD>=67THENX=X+1:IFED=1THENED=2:RETURN
2006 IFED=1THENRETURN
2008 DL=LEN(I1$)+LEN(I2$)+LEN(I3$)+LEN(I4$)+LEN(I5$)+LEN(I6$)+LEN(I7$)
2010 LI=X+1:DL=DL+LEN(STR$(LI))
2012 R=4:IFDL>=67THEN 2026
2014 PRINT"[147]"RIGHT$(STR$(LI),LEN(STR$(LI))-1)"DATA";LI;"[157],";I1$;",";I2$;
2016 PRINT",";I3$;",";I4$;",";I5$;",";I6$;",";I7$
2018 PRINT"RUN1506"
2020 PRINT"";:POKE198,R:FORI=631TO635:POKEI,13:NEXT:END
2022 PRINT"[147]"SPC(13);"[153]MEMORY FULL!!![146]":FORL=1TO2000:NEXT
2024 RESTORE:RETURN
2026 PRINT"[147]"RIGHT$(STR$(LI),LEN(STR$(LI))-1)"DATA";LI;"[157],";I1$;",";I2$;
2028 PRINT",";I3$
2030 LI=LI+1
2032 PRINTRIGHT$(STR$(LI),LEN(STR$(LI))-1)"DATA";I4$;",";I5$;",";I6$;",";I7$
2034 R=5:GOTO 2018